home *** CD-ROM | disk | FTP | other *** search
/ The Very Best of Atari Inside / The Very Best of Atari Inside 1.iso / sharew / accs / grafstar / listings / accpatch.lst next >
Encoding:
File List  |  1989-06-20  |  1.3 KB  |  51 lines
  1. '
  2. ' ACCPATCH.LST: Macht GFA_BCOM.PRG accessory-zeugungsfähig
  3. '               Wählen Sie bitte in der Fileselectbox den
  4. '               Compiler aus. Es werden dann einige Bytes
  5. '               verändert, so daß Sie nun auch Accessories
  6. '               compilieren können!
  7. '               ACHTUNG: Sie können nur den Compiler v1.8
  8. '               mit der Programmlänge 53706 Bytes patchen!
  9. '
  10. '               Dieses Listing basiert auf der Vorgehensweise
  11. '               aus der Zeitschrift "c't", Heft 11/88 (Seiten
  12. '               186-189). Für detailliertere Angaben sehen Sie
  13. '               bitte dort nach.
  14. '
  15. '                                       Ihr Alexander Stork
  16. '                                                   (Autor)
  17. '
  18. Stack_setup:
  19. Data &4B,&fa,&fe,&fe,&60,&06,&1b,&00,&1b,&66,&00,&00
  20. Data &4f,&ed,&01,&00,-1
  21. '
  22. Fileselect "\GFA_BCOM.PRG","GFA_BCOM.PRG",File$
  23. '
  24. If Exist(File$)
  25.   '
  26.   Offset%=&H566E
  27.   Open "U",#1,File$
  28.   Seek #1,28+Offset%
  29.   '
  30.   Do
  31.     Read Byte%
  32.     Exit If Byte%=-1
  33.     Out #1,Byte%
  34.   Loop
  35.   '
  36.   Seek #1,28+&HD1+Offset%
  37.   Out #1,&H36
  38.   Seek #1,28+&H2A3
  39.   Print #1,"ACC";
  40.   Seek #1,28+&H4CE9
  41.   Out #1,&H41
  42.   Seek #1,28+&H4CED
  43.   Out #1,&H43
  44.   Seek #1,28+&H4CF1
  45.   Out #1,&H43
  46.   Close
  47.   '
  48. Else
  49.   Alert 3,"Kann Datei nicht finden",1,"  QUIT  ",Erg%
  50. Endif
  51.